home *** CD-ROM | disk | FTP | other *** search
/ Computer Life: SuperPac / SuperPac (Computer Life Magazine)(Ziff-Davis)(1995).ISO / pc / demos / wincim / scripts.lib / MERCURY.SCR < prev    next >
Encoding:
Text File  |  1994-12-29  |  1.0 KB  |  54 lines
  1. !
  2. !  Copyright (c) 1994
  3. !  by CompuServe Incorporated, Columbus, Ohio
  4. !
  5. !  The information in this software is subject to change without
  6. !  notice and should not be construed as a commitment by CompuServe.
  7. !
  8. !  MERCURY:
  9. !    Connect to Mercury
  10. !    Success:  returns %Success
  11. !    Failure:  saves error msg in %FailureMsg and returns %Failure
  12. !
  13. !+V
  14. ! "3.5.2"
  15. !-V
  16.  
  17. Mercury_NUA = ",,UKCNS";
  18.  
  19. show "Connecting to Mercury 5000";
  20. Tries = 5;
  21. on cancel goto Return_Cancel;
  22. wait until 15;
  23. send %CR & %CR & %CR & %CR;
  24.  
  25. Wait_Mercury:
  26.  
  27.      if Tries = 0 goto Mercury_Failure;
  28.      Tries = Tries - 1;
  29.  
  30.      wait
  31.         "SERVICE"    goto Send_Mercury_NUA,
  32.         "FAILURE"    goto Wait_Mercury,
  33.         "Host Name:"    goto Return_Success
  34.      until 80;
  35.  
  36.      send %CR;
  37.      goto Wait_Mercury;
  38.  
  39. Send_Mercury_NUA:
  40.      show "Sending Mercury User Address...";
  41.      send Mercury_NUA & %CR;
  42.      goto Wait_Mercury;
  43.  
  44. Mercury_Failure:
  45.      define %FailureMsg = "Mercury not responding";
  46.      exit %Failure;
  47.  
  48. Return_Cancel:
  49.     exit %Cancel;
  50.  
  51. Return_Success:
  52.     send %CR;
  53.     exit %Success;
  54.